%Inputs 
%=======
clear all; 
close all; 

auth='gm';               % Author's Name
spec='nzcim';         % Specification 
subf='cn';             % Subfolder
priornam='pr LS9.txt'; % Name with the prior file
fname='perc_LS9'; 

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
cuc=cd; 
opath=cr_dirpath(cuc,auth,spec,subf);              
disp('Begin Loading prior'); 
cd(opath); 
[cofname,dist,lcone,lctwo,lbnd,ubnd]=textread(priornam,'%q%q%f%f%f%f','delimiter','\t'); 
[cofname]=textread(priornam,'%q%*[^\n]');
dist=char(dist); 
nump=size(lcone,1); 
cd(cuc)
clear priornam; 
[perc,alphap,betap]=load_pperc(cofname,dist,lcone,lctwo); 
savecell( perc , [], opath, fname ); 
disp('Done'); 
disp(['File: ',fname,' saved in ',opath] ); 
